home *** CD-ROM | disk | FTP | other *** search
/ PsL Monthly 1993 December / PSL Monthly Shareware CD-ROM (December 1993).iso / prgmming / dos / basic / qbware.exe / COMPRESS.FN < prev    next >
Text File  |  1988-05-01  |  434b  |  23 lines
  1.  
  2. 'Copyright (c) 1987 Marcel Madonna
  3.  
  4.  
  5. '*****************************************************************************
  6.  
  7. Def FnCompress$(Text$)
  8.  
  9. ' This function will remove leading and trailing blanks from any string
  10.  
  11.     Static Rc%, Rc1%
  12.  
  13.     Call Verify(Text$, Space$(1), Rc%)
  14.     If Rc% = 0 then
  15.         FnCompress$ = ""
  16.     Else
  17.         Call Xverify(Text$, Space$(1), Rc1%)
  18.         FnCompress$ = Mid$(Text$,Rc%,Rc1%-Rc%+1)
  19.     End if
  20.  
  21. End Def
  22.  
  23.